* net/rcirc.el (rcirc-kill-buffer-hook): Flush logs.

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 6481f627d9269518d04c96295036b179d5a8ec2e..cf570beb0ff479f43b3834c9c5feba525d132fd3 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -1029,6 +1029,9 @@ If ALL is non-nil, update prompts in all IRC buffers."
 (defun rcirc-kill-buffer-hook ()
   "Part the channel when killing an rcirc buffer."
   (when (eq major-mode 'rcirc-mode)
+    (when (and rcirc-log-flag
+               rcirc-log-directory)
+      (rcirc-log-write))
     (rcirc-clean-up-buffer "Killed buffer")))
 
 (defun rcirc-change-major-mode-hook ()